home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / MyTextEdit.p < prev    next >
Text File  |  1996-08-02  |  791b  |  39 lines
  1. unit MyTextEdit;
  2.  
  3. interface
  4.  
  5.     uses
  6.         Types, TextEdit;
  7.     
  8.     function HasTEGetHiliteRgn: Boolean;
  9.     function PtInTEHiliteRgn( localwhere: Point; te: TEHandle ): Boolean;
  10.     
  11. implementation
  12.  
  13. { Some routines based on John Norstad's NewsWatcher source code }
  14.  
  15.     uses
  16.         GestaltEqu, Quickdraw;
  17.         
  18.     function HasTEGetHiliteRgn: Boolean;
  19.         var
  20.             gv: longint;
  21.     begin
  22.         HasTEGetHiliteRgn := (Gestalt(gestaltTEAttr, gv) = noErr) & btst(gv, gestaltTEHasGetHiliteRgn);
  23.     end;
  24.     
  25.     function PtInTEHiliteRgn( localwhere: Point; te: TEHandle ): Boolean;
  26.         var
  27.             rgn: RgnHandle;
  28.     begin
  29.         PtInTEHiliteRgn := false;
  30.         if HasTEGetHiliteRgn then begin
  31.             rgn := NewRgn;
  32.             if TEGetHiliteRgn( rgn, te ) = noErr then begin
  33.                 PtInTEHiliteRgn := PtInRgn( localwhere, rgn );
  34.             end;
  35.             DisposeRgn( rgn );
  36.         end;
  37.     end;
  38.     
  39. end.